home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / file_uti / findfile / findfile.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1995-12-24  |  3.7 KB  |  107 lines
  1. findfileform
  2. Form1
  3. Form15
  4. Text2
  5. searchbutton
  6. &Search
  7. Picture1
  8. Text1
  9. *.wav
  10. File1
  11. Drive1
  12. Label1
  13. file extension:
  14. List1
  15. Label2
  16. directories searched:
  17. @    Form_Load
  18. Form_Clicka
  19. rackform
  20. command1
  21. Visible
  22. miniitem_Click
  23. WindowStateS
  24. closeitem_Click
  25. rackminiitem_Click
  26. rackcloseitem_Click
  27. Caption
  28. controlboxI
  29. Drive1_Change
  30. drive1
  31. drive
  32. Dir1_Change
  33. file1
  34.     ListIndex
  35. Dir1_Click
  36.     ListCount
  37. Command1_Click
  38. level:
  39. thisloop
  40. Pattern
  41. text1
  42. Text1_Changet
  43. dirloop
  44. fileloop
  45. list1)
  46. List1_Click8
  47. List2_Click`
  48. List1_DblClick
  49. list2b
  50. File1_Click
  51. File1_DblClick
  52. searchbutton_Click    
  53. aol25-
  54. download
  55. thispathz
  56. thisfileR
  57. not_a_directory
  58. thisfiel
  59. thispattern
  60. dpath
  61. dpattern8
  62. enabledm
  63. thesefiles
  64. filelist
  65. checkfiles
  66.     checkfile
  67.     thesedirs
  68. dirlist
  69. get_next_file
  70. thesedir
  71. screen
  72. MousePointer
  73. savetime
  74. endtimep
  75. elapsedtime`
  76.     starttime
  77. label1'
  78. totalsearched
  79. waitforothers
  80. label2
  81. text2G
  82.     ThenReDim
  83.     soundform
  84. filename
  85. findfileform
  86. handle_nodrive
  87.     savedriveP
  88. Dir1_Change
  89. dirloop
  90. get all files on this directory which match patternt
  91. get all files on this directory 
  92. the "*." pattern will exclude all files without extensions
  93. now look at all "names" on this directory 
  94. the "*." pattern will exclude all files, including directories, with a "." in them
  95. now check to see if this name is on the file listr
  96. do nothing, we don't count these as directoriesi
  97. now lets go through all subdirectories, and call this subl
  98. waitforothers = DoEvents()
  99. Drive1_Change
  100. Error Reading Drive
  101. Fatal Error. . . . Quiting
  102. Form_Load
  103. searchbutton_Click
  104.  seconds to find 
  105.  files.
  106. Text1_Change
  107.